home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 April
/
EnigmA AMIGA RUN 06 (1996)(G.R. Edizioni)(IT)[!][issue 1996-04][Skylink CD V].iso
/
progs
/
editor
/
write-ed
/
rexx
/
search.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-05-01
|
2KB
|
113 lines
/*
* WRITE V3.1536 © 1991-1995 by Tim Teulings
*
* Dieses Script öffnet einen Filerequester, in dem man verschiedene Files
* auswählen kann. Anschließen öffnet sich der GETFINDREPLACE-Requester,
* im welchem man dann ein Suchwort auswählen kann.
* Write such dann in den entsprechenden Files nach dem Suchwort und zeigt
* alle gefundenen Stellen an.
*
* $VER: 1.1 updated to version 3.1536 (Tim Teulings)
*
*/
IF ~show('P',"WRITE") THEN
DO
say "Dieses Skrpit arbeitet nicht ohne dem Texteditor WRITE !"
EXIT 0
END
ADDRESS "WRITE"
OPTIONS RESULTS
SIGNAL ON SYNTAX /* Abfangen von Syntaxfehlern */
'VERSIONCHECK 40000 "Search.wrx"'
IF RC~=0 THEN DO
exit 10
END
ID = -1
CLEARLIST "0"
'GETFILES "0" "" ""'
IF RC~=0 THEN DO
EXIT
END
'LISTSIZE "0"'
Size = RESULT
IF Size=0 THEN DO
EXIT
END
'NEWED "EMPTY.CONFIG"'
ID = RESULT
LOCKWINDOW ID
'GETFINDREPLACE _FindString _ReplaceString'
IF RC~=0 THEN DO
QUITED
EXIT
END
LastLine = -1
DO x=1 TO Size
GETLISTENTRY 0 x
IF RC=0 THEN DO
File = RESULT
say File || ...
END
'OPEN &File'
IF RC=0 THEN DO
found = 0
'FIND @CURSOR @CURSOR @EOT @EOT {@SILENT}'
DO WHILE RC=0
'GETVAR "_yPos"'
Line = RESULT
'GETVAR "_CurrentLine"'
Text = RESULT
if LastLine~=Line then do
say strip(Line) || " : " || Text
end
LastLine=Line
found = found + 1
'FIND @CURSOR @CURSOR @EOT @EOT {@SILENT}'
END
END
ID = -1
IF found>0 THEN DO
say
END
END
QUITED
EXIT
/********/
/* Ende */
/********/
SYNTAX:
SAY "Leider trat ein Fehler auf... Zeile " SIGL ":" ERRORTEXT(RC)
LOCKWINDOW 0
EXIT